;;;I had a bunch of images to tile together all the same size.
;;;This routine helped me do it very quickly.  Manually would have taken too long.
;;;The idea might be of some help but this only works with the exact images names
;;;and paths I needed.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
(defun c:imagetile ()
;;;  (setq start_file (getfiled "Select Image File" (getvar"dwgprefix") "bmp" 8))
  (setq n_posit 5)
  (setq e_posit 1)
  (while (/= n_posit 9)
    (setq ns_posit (itoa n_posit))
    (setq es_posit (itoa e_posit))
    (command ".image"
	     "a"
	     (strcat "KG_MAP_N" ns_posit "E" es_posit "=c:/my documents/my pictures/KG Map N" ns_posit "E" es_posit ".bmp")
	     (strcat "2" es_posit ", "(rtos (- 20.75(* n_posit 0.75))))
	     "1"
	     "0"
    )
    (if (eq e_posit 8)
      (progn(setq e_posit 1)(setq n_posit (1+ n_posit)))
      (setq e_posit (1+ e_posit))
    )
  )
  (princ)
)